home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 17 / CU Amiga Magazine's Super CD-ROM 17 (1997)(EMAP Images)(GB)[!][issue 1997-12].iso / CUCD / Games / F1GP-Ed / Install / Install_F1GP-Ed < prev   
Text File  |  1997-08-26  |  32KB  |  1,441 lines
  1. ; F1GP-Ed Install Script - Copyright © 1994-1997 Oliver Roberts
  2. ;
  3. ; $VER: Install_F1GP-Ed 4.23 (27.8.97)
  4. ;
  5. ; - German translation by Dirk Kocherscheidt
  6. ; - French translation by Daniel Grenson
  7.  
  8. ;****************************************************************************
  9. ; Distribution Parameters
  10.  
  11. (set #frenchdocexists 0)
  12.  
  13. ;****************************************************************************
  14. ; English strings
  15. ;
  16. (set #str-installtype
  17.     "Choose installation:"
  18. )
  19.  
  20. (set #str-hd
  21.     "Hard disk installation"
  22. )
  23.  
  24. (set #str-floppy
  25.     "Floppy disk installation"
  26. )
  27.  
  28. (set #str-help-installtype (cat
  29.     "F1GP-Ed is best installed to a hard drive.  If you don't have "
  30.     "one, then select floppy disk and this installer will install "
  31.     "F1GP-Ed to floppy disk instead.")
  32. )
  33.  
  34. (set #str-hdconfirm (cat
  35.     "Make sure you have booted from your hard drive, before "
  36.     "continuing with this installation!\n\nDo you want to continue?")
  37. )
  38.  
  39. (set #str-floppyconfirm (cat
  40.     "Make sure you have a blank formatted disk ready.  Refer to "
  41.     "the Workbench manual if you are unsure how to format a disk.\n\n"
  42.     "Do you want to continue?")
  43. )
  44.  
  45. (set #str-diskwarn (cat
  46.     "IMPORTANT: If you are running this installer off a floppy disk, "
  47.     "please make sure the disk is write-protected before proceeding.\n\n"
  48.     "Please be aware that a full installation won't fit on a single DD "
  49.     "floppy disk, so it's best to only choose one language for the "
  50.     "documentation, and only the relevant locale catalog.")
  51. )
  52.  
  53. (set #str-diskinsertnew
  54.     "Please insert a blank formatted disk in drive DF%ld:"
  55. )
  56.  
  57. (set #str-diskremove
  58.     "You should now remove this disk and mark it as the %s disk."
  59. )
  60.  
  61. (set #str-diskrename1
  62.     "main F1GP-Ed"
  63. )
  64.  
  65. (set #str-diskanydrive (cat
  66.     "From now on you may insert this disk in any drive when requested "
  67.     "(i.e. not just the internal drive).")
  68. )
  69.  
  70. (set #str-diskinsert
  71.     "Please insert the %s disk in any drive"
  72. )
  73.  
  74. (set #str-copy
  75.     "Copying files to %s"
  76. )
  77.  
  78. (set #str-tmpcopy
  79.     "Copying files to temporary directory"
  80. )
  81.  
  82. (set #str-tmpclean
  83.     "Cleaning temporary directory"
  84. )
  85.  
  86. (set #str-hdwhere
  87.     "Select where F1GP-Ed should be installed (a drawer called \"F1GP-Ed\" will be created)"
  88. )
  89.  
  90. (set #str-fileexists (cat
  91.     "Could not create the \"F1GP-Ed\" drawer - make sure there are "
  92.     "no files called \"F1GP-Ed\" in the destination you selected.\n\n\n"
  93.     "Installation Failed!")
  94. )
  95.  
  96. (set #str-drawerexists (cat
  97.     "The F1GP-Ed drawer already exists.  It will be renamed "
  98.     "to \"F1GP-Ed_OLD\" if you want to keep any of the files "
  99.     "in it, otherwise all files will be deleted/replaced.")
  100. )
  101.  
  102. (set #str-replacedrawer
  103.     "Replace drawer"
  104. )
  105.  
  106. (set #str-renamedrawer
  107.     "Rename drawer"
  108. )
  109.  
  110. (set #str-extract
  111.     "Unpacking files - this may take a while..."
  112. )
  113.  
  114. (set #str-whichdocs
  115.     "Install documentation for which languages?"
  116. )
  117.  
  118. (set #str-helplanguage
  119.     "Which language should be used for on-line help?"
  120. )
  121.  
  122. (set #str-help-helplanguage (cat
  123.     "You should select your preferred language from the list so that "
  124.     "F1GP-Ed knows which version of the documentation to use for "
  125.     "the on-line help feature.  This is done by modifying the "
  126.     "HELPFILE tooltype in the F1GP-Ed program icon.")
  127. )
  128.  
  129. (set #str-whichcatalogs
  130.     "Install which catalogs? (english is built-in)"
  131. )
  132.  
  133. (set #str-help-whichcatalogs (cat
  134.     "If you have Workbench 2.1 or higher, F1GP-Ed will be able to "
  135.     "make use of locale catalogs.  This means that the strings in "
  136.     "F1GP-Ed itself can be in a different language.\n\n"
  137.     "Selected catalogs will be installed in the F1GP-Ed drawer.")
  138. )
  139.  
  140. (set #str-confirmoptional
  141.     "Please select which of these you'd like to install"
  142. )
  143.  
  144. (set #str-seasondata
  145.     "%ld season data"
  146. )
  147.  
  148. (set #str-soundfiles
  149.     "Replacement sound samples (%s drawer)"
  150. )
  151.  
  152. (set #str-gfxfiles
  153.     "Replacement cockpit designs (%s drawer)"
  154. )
  155.  
  156. (set #str-extrafiles
  157.     "Miscellaneous F1GP stuff (%s drawer)"
  158. )
  159.  
  160. (set #str-update
  161.     "Installing newer version of %s"
  162. )
  163.  
  164. (set #str-exe
  165.     "F1GP-Ed executable"
  166. )
  167.  
  168. (set #str-iconfix
  169.     "Setting icon tools and tooltypes"
  170. )
  171.  
  172. (set #str-floppyextras
  173.     "Copying extra files required for autobooting disk"
  174. )
  175.  
  176. (set #str-theend (cat
  177.     "\nEnjoy using F1GP-Ed ;-)\n\n"
  178.     "The latest version of F1GP-Ed is always available from the "
  179.     "F1GP-Ed Web Page - %s\n\n%s\n")
  180. )
  181.  
  182. (set #str-tmpstorage (cat
  183.     "Select an area to use as temporary storage.  A drawer called \"%s\" "
  184.     "will be created there, and will be deleted when installation has "
  185.     "been completed.  The default is usually sufficient.")
  186. )
  187.  
  188. (set #str-prepdisk
  189.     "Preparing floppy disk"
  190. )
  191.  
  192. (set #str-bootfloppyend (cat
  193.     "F1GP-Ed disk created.  You should now be able to boot directly "
  194.     "from the disk after this installer has exited.")
  195. )
  196.  
  197. (set #str-intdrive
  198.     "internal drive"
  199. )
  200.  
  201. (set #str-selectfloppydrive (cat
  202.     "Select a valid floppy disk drive - this will be the drive that "
  203.     "will be used to initialize your blank disk.  Unless your internal "
  204.         "drive is broken, it's probably best to go along with the default...")
  205. )
  206.  
  207. ;****************************************************************************
  208. ; German strings
  209. ;
  210. (if (= @language "deutsch") (
  211.     (set #str-installtype
  212.         "Wählen Sie die Art der Installation:"
  213.     )
  214.  
  215.     (set #str-hd
  216.         "Festplatten Installation"
  217.     )
  218.  
  219.     (set #str-floppy
  220.         "Floppy Disk Installation"
  221.     )
  222.  
  223.     (set #str-help-installtype (cat
  224.         "F1GP-Ed wird am besten auf die Festplatte installiert. Wenn "
  225.         "Sie keine haben, dann wählen Sie Floppy Disk und der Installer "
  226.         "wird F1GP-Ed statt dessen auf Diskette installieren.")
  227.     )
  228.  
  229.     (set #str-hdconfirm (cat
  230.         "Versichern Sie sich, daß Sie von Ihrer Festplatte gebootet haben, "
  231.         "bevor Sie mit dieser Installation fortfahren!\n\nMöchten Sie fortfahren?")
  232.     )
  233.  
  234.     (set #str-floppyconfirm (cat
  235.         "Denken Sie daran, eine formatierte Leerdiskette bereit zu haben. "
  236.         "Schlagen Sie in Ihrem Workbench Handbuch nach, wenn Sie nicht genau "
  237.         "wissen wie man eine Diskette formatiert.\n\n"
  238.         "Möchten Sie fortfahren?")
  239.     )
  240.  
  241.     (set #str-diskwarn (cat
  242.         "WICHTIG: Wenn Sie diesen Installer von Diskette laufen lassen, "
  243.         "dann überzeugen Sie sich, daß die Diskette schreibgeschützt ist, "
  244.         "bevor Sie fortfahren.\n\n Bitte denken Sie daran, daß die komplette "
  245.         "Installation nicht auf eine einzige DD Diskette paßt; es ist also am "
  246.         "besten, wenn Sie nur eine Sprache für die Dokumentation und nur den "
  247.         "für Sie relevanten Locale Catalog wählen.")
  248.     )
  249.  
  250.     (set #str-diskinsertnew
  251.         "Bitte legen Sie eine formatierte Leerdiskette in Laufwerk DF%ld: ein"
  252.     )
  253.  
  254.     (set #str-diskremove
  255.         "Sie sollten diese Diskette jetzt entfernen und als %s Diskette beschriften."
  256.     )
  257.  
  258.     (set #str-diskrename1
  259.         "F1GP-Ed Haupt -"
  260.     )
  261.  
  262.     (set #str-diskanydrive (cat
  263.         "Von jetzt an können Sie die Diskette in jedes beliebige Laufwerk "
  264.         "einlegen (d.h. nicht nur ins interne Laufwerk).")
  265.     )
  266.  
  267.     (set #str-diskinsert
  268.         "Bitte legen Sie die %s Diskette in ein beliebiges Laufwerk"
  269.     )
  270.  
  271.     (set #str-copy
  272.         "Kopiere Dateien nach %s"
  273.     )
  274.  
  275.     (set #str-tmpcopy
  276.         "Kopiere temporär benötigte Dateien in temporäres Verzeichnis"
  277.     )
  278.  
  279.     (set #str-tmpclean
  280.         "Säubere temporäres Verzeichnis"
  281.     )
  282.  
  283.     (set #str-hdwhere (cat
  284.         "Wählen Sie, wo F1GP-Ed installiert werden soll (ein Verzeichnis namens "
  285.         "\"F1GP-Ed\" wird dort angelegt)")
  286.     )
  287.  
  288.     (set #str-fileexists (cat
  289.         "Konnte das Verzeichnis \"F1GP-Ed\" nicht anlegen - überzeugen Sie sich, daß "
  290.         "keine Dateien namens \"F1GP-Ed\" in Ihrem gewählten Ziel sind.\n\n\n"
  291.         "Installation fehlgeschlagen!")
  292.     )
  293.  
  294.     (set #str-drawerexists (cat
  295.         "Das F1GP-Ed Verzeichnis existiert bereits. Es wird in \"F1GP-Ed_OLD\" "
  296.         "umbenannt, wenn Sie irgendwelche Dateien daraus behalten wollen, "
  297.         "anderenfalls werden alle Dateien gelöscht/ersetzt.")
  298.     )
  299.  
  300.     (set #str-replacedrawer
  301.         "Ersetze Verzeichnis"
  302.     )
  303.  
  304.     (set #str-renamedrawer
  305.         "Benenne Verzeichnis um"
  306.     )
  307.  
  308.     (set #str-extract
  309.         "Entpacke Dateien - das kann eine Weile dauern..."
  310.     )
  311.  
  312.     (set #str-whichdocs
  313.         "In welchen Sprachen soll die Dokumentation installiert werden?"
  314.     )
  315.  
  316.     (set #str-helplanguage
  317.         "Welche Sprache soll für die on-line Hilfe benutzt werden?"
  318.     )
  319.  
  320.     (set #str-help-helplanguage (cat
  321.         "Sie sollten aus dieser Liste Ihre bevorzugte Sprache auswählen, so daß "
  322.         "F1GP-Ed weiß, welche Version der Dokumentation für das on-line Hilfe "
  323.         "Feature benutzt werden soll. Dies wird gemacht, indem das HELPFILE "
  324.         "Tooltype im F1GP-Ed Programm Icon verändert wird.")
  325.     )
  326.  
  327.     (set #str-whichcatalogs
  328.         "Welche Cataloge sollen installiert werden? (Englisch ist schon eingebaut)"
  329.     )
  330.  
  331.     (set #str-help-whichcatalogs (cat
  332.         "Wenn Sie Workbench 2.1 oder höher haben, ist F1GP-Ed in der Lage "
  333.         "Locale Catalogs zu benutzen. Das bedeutet, daß die Texte in F1GP-Ed selbst, "
  334.         "in verschiedenen Sprachen sein können.\n\n"
  335.         "Ausgewählte Cataloge werden ins F1GP-Ed Verzeichnis installiert.")
  336.     )
  337.  
  338.     (set #str-confirmoptional
  339.         "Bitte wählen Sie, was Sie hiervon installieren möchten"
  340.     )
  341.  
  342.     (set #str-seasondata
  343.         "%lder Saison Daten"
  344.     )
  345.  
  346.     (set #str-soundfiles
  347.         "Ersatz Sound-Samples (%s Verzeichnis)"
  348.     )
  349.  
  350.     (set #str-gfxfiles
  351.         "Ersatz Cockpit-Designs (%s Verzeichnis)"
  352.     )
  353.  
  354.     (set #str-extrafiles
  355.         "Verschiedenes F1GP Zeug (%s Verzeichnis)"
  356.     )
  357.  
  358.     (set #str-update
  359.         "Installiere neue Version der %s"
  360.     )
  361.  
  362.     (set #str-exe
  363.         "ausführbaren F1GP-Ed Datei"
  364.     )
  365.  
  366.     (set #str-iconfix
  367.         "Setze Icon Tools und Tooltypes"
  368.     )
  369.  
  370.     (set #str-floppyextras
  371.         "Kopiere extra Dateien, die für selbst-bootende Diskette benötigt werden"
  372.     )
  373.  
  374.     (set #str-theend (cat
  375.         "\nViel Spaß beim Benutzen von F1GP-Ed ;-)\n\n"
  376.         "Die neueste Version von F1GP-Ed gibt es immer auf der F1GP-Ed Web Page "
  377.         "- %s\n\n%s\n")
  378.     )
  379.     
  380.     (set #str-tmpstorage (cat
  381.         "Wählen Sie ein Verzeichnis, das als temporäres Verzeichnis benutzt "
  382.         "werden soll. Ein Verzeichnis namens \"%s\" wird dort angelegt und "
  383.         "nach der Installation wieder gelöscht. Die Vorgabe ist normalerweise "
  384.         "ausreichend.")
  385.     )
  386.  
  387.     (set #str-prepdisk
  388.         "Bereite Diskette vor"
  389.     )
  390.  
  391.     (set #str-bootfloppyend (cat
  392.         "F1GP-Ed Diskette angelegt. Sie sollten nun direkt von der Diskette "
  393.         "booten können, nachdem der Installer beendet ist.")
  394.     )
  395.  
  396.     (set #str-intdrive
  397.         "internes Laufwerk"
  398.     )
  399.  
  400.     (set #str-selectfloppydrive (cat
  401.         "Wählen Sie ein gültiges Diskettenlaufwerk - dieses Laufwerk wird "
  402.         "benutzt, um Ihre Leerdiskette zu initialisieren. Sofern Ihr internes "
  403.         "Laufwerk nicht kaputt ist, ist es wohl am besten, Sie bleiben bei "
  404.         "der Voreinstellung...")
  405.     )
  406. ))
  407.  
  408. ;****************************************************************************
  409. ; French strings
  410. ;
  411. (if (= @language "français") (
  412.     (set #str-installtype
  413.         "Choisissez le type d'installation:"
  414.     )
  415.  
  416.     (set #str-hd
  417.         "Installation sur disque dur"
  418.     )
  419.  
  420.     (set #str-floppy
  421.         "Installation sur disquette"
  422.     )
  423.  
  424.     (set #str-help-installtype (cat
  425.         "Il est préférable d'installer F1GP-Ed sur disque dur. Si vous n'en "
  426.         "possédez pas, sélectionnez alors installation sur disquette, ce "
  427.         "qui sera fait alors par cet installeur.")
  428.     )
  429.  
  430.     (set #str-hdconfirm (cat
  431.         "Assurez-vous d'avoir lancé votre ordinateur au départ du disque dur, "
  432.         "avant de continuer cette installation!\n\nVoulez-vous continuer?")
  433.     )
  434.  
  435.     (set #str-floppyconfirm (cat
  436.         "Pensez à avoir une disquette vide et formatée à votre disposition. "
  437.         "Référez-vous au manuel du Workbench si vous ne savez pas comment "
  438.         "formater une disquette.\n\n"
  439.         "Voulez-vous continuer?")
  440.     )
  441.  
  442.     (set #str-diskwarn (cat
  443.         "IMPORTANT: Si vous lancez cet installeur au départ d'une disquette, "
  444.         "s'il-vous plait, assurez-vous qu'elle est protégée contre l'écriture "
  445.         "avant de continuer.\n\n Soyez conscient que l'installation complète "
  446.         "ne peut tenir sur une simple disquette, il vaut donc mieux ne choisir "
  447.         "qu'une seule langue pour la documentation, et seulement le catalogue "
  448.         "locale utile.")
  449.     )
  450.  
  451.     (set #str-diskinsertnew
  452.         "Insérez, s'il-vous plait, une disquette vide formatée dans le lecteur DF%ld:"
  453.     )
  454.  
  455.     (set #str-diskremove
  456.         "Vous devriez retirer cette disquette maintenant et la renommer maintenent comme disquette %s."
  457.     )
  458.  
  459.     (set #str-diskrename1
  460.         "main F1GP-Ed"
  461.     )
  462.  
  463.     
  464.     (set #str-diskanydrive (cat
  465.         "A partir d'ici, vous pouvez insérer cette disquette dans un lecteur "
  466.         "lorsque cela est demandé (C'est-à-dire pas seulement dans le lecteur "
  467.         "interne).")
  468.     )
  469.  
  470.     (set #str-diskinsert
  471.         "Insérez, s'il-vous plait, la disquette %s dans un lecteur de votre choix"
  472.     )
  473.  
  474.     (set #str-copy
  475.         "Copie des fichiers vers %s"
  476.     )
  477.  
  478.     (set #str-tmpcopy
  479.         "Copie des fichiers vers un répertoire temporaire"
  480.     )
  481.  
  482.     (set #str-tmpclean
  483.         "Effacement du répertoire temporaire"
  484.     )
  485.  
  486.     (set #str-hdwhere (cat
  487.         "Sélectionnez l'endroit où F1GP-Ed devrait être installé (un tiroir appelé "
  488.         "\"F1GP-Ed\" sera créé)")
  489.     )
  490.  
  491.     (set #str-fileexists (cat
  492.         "Impossible de créer le tiroir \"F1GP-Ed\" - assurez-vous qu'il n'y a pas "
  493.         "de fichier appelé \"F1GP-Ed\" dans la destination que vous avez sélectionnéein.\n\n\n"
  494.         "Echec de l'installation!")
  495.     )
  496.  
  497.     (set #str-drawerexists (cat
  498.         "Le tiroir F1GP-Ed existe déja. Il sera renommé \"F1GP-Ed_OLD\" "
  499.         "si vous souhaitez conserver un des fichiers qui s'y trouve, autrement "
  500.         "tous les fichiers seront effacés/remplacés.")
  501.     )
  502.  
  503.     (set #str-replacedrawer
  504.         "Remplacer le tiroir"
  505.     )
  506.  
  507.     (set #str-renamedrawer
  508.         "Renommer le tiroir"
  509.     )
  510.  
  511.     (set #str-extract
  512.         "Décompactage des données - cela peut durer un peu..."
  513.     )
  514.  
  515.     (set #str-whichdocs
  516.         "Dans quelles langues doit être installée la documentation?"
  517.     )
  518.  
  519.     (set #str-helplanguage
  520.         "Quelle langue devrait être utilisée pour l'aide en ligne?"
  521.     )
  522.  
  523.     (set #str-help-helplanguage (cat
  524.         "Vous devriez sélectionnez votre langue préférée de la liste de manière "
  525.         "à ce que F1GP-Ed sache quelle version de la documentation utiliser "
  526.         "pour la caractéristique de l'aide en ligne.  Ceci est réalisé par la "
  527.         "modification du type d'outil HELPFILE (Fichier d'aide) de l'icone "
  528.         "du programme F1GP-Ed.")
  529.     )
  530.  
  531.     (set #str-whichcatalogs
  532.         "Quels catalogues souhaitez-vous installer? (L'anglais est déja incorporé)"
  533.     )
  534.  
  535.     (set #str-help-whichcatalogs (cat
  536.         "Si vous possédez un Workbench 2.1 ou supérieur, F1GP-Ed sera capable "
  537.         "d'utiliser les catalogues Locale. Cela signifie que les textes de F1GP-Ed "
  538.         "lui-même, peuvent être dans différentes langues.\n\n"
  539.         "Les catalogues sélectionnés seront installés dans le tiroir F1GP-Ed.")
  540.     )
  541.  
  542.     (set #str-confirmoptional
  543.         "Sélectionnez, s'il-vous plait, ce que vous souhaitez installer"
  544.     )
  545.  
  546.     (set #str-seasondata
  547.         "%ld  Données de cette saison"
  548.     )
  549.  
  550.     (set #str-soundfiles
  551.         "Echantillons de sons de remplacement (%s tiroir)"
  552.     )
  553.  
  554.     (set #str-gfxfiles
  555.         "Dessins de cockpit de remplacement (%s tiroir)"
  556.     )
  557.  
  558.     (set #str-extrafiles
  559.         "Diverses choses à propos de/pour F1GP (%s tiroir)"
  560.     )
  561.  
  562.     (set #str-update
  563.         "Installation de la nouvelle version de %s"
  564.     )
  565.  
  566.     (set #str-exe
  567.         "Données du programme exécutable F1GP-Ed"
  568.     )
  569.  
  570.     (set #str-iconfix
  571.         "Pose des icones outils et des types d'outil"
  572.     )
  573.  
  574.     (set #str-floppyextras
  575.         "Copie des fichiers extras nécessaires pour disquette autoboot"
  576.     )
  577.  
  578.     (set #str-theend (cat
  579.         "\nPrenez beaucoup de plaisir en utilisant F1GP-Ed ;-)\n\n"
  580.         "La dernière versiob de F1GP-Ed est disponible sur la page Web "
  581.         "- %s\n\n%s\n")
  582.     )
  583.     
  584.     (set #str-tmpstorage (cat
  585.         "Sélectionnez l'endroit utilisé pour conserver momentanément les données. "
  586.         "Un tiroir appelé \"%s\" y sera créé et sera ensuite effacé lorsque "
  587.         "l'installation sera terminée.  Le réglage par défaut est habituellement "
  588.         "suffisant.")
  589.     )
  590.  
  591.     (set #str-prepdisk
  592.         "Préparez votre disquette"
  593.     )
  594.  
  595.     (set #str-bootfloppyend (cat
  596.         "Disquette F1GP-Ed créée.  Maintenant vous devriez pouvoir Booter "
  597.         "directement au départ de cette disquette après que cet installeur "
  598.         "ait terminé son activité.")
  599.     )
  600.  
  601.     (set #str-intdrive
  602.         "lecteur de disquette interne"
  603.     )
  604. ))
  605.  
  606.  
  607. ;****************************************************************************
  608. ; Initializations
  609. ;
  610. (set #OSVersion (/ (getversion) 65536))
  611. (set #TextTool (if (< #OSVersion 39) "AmigaGuide" "Multiview"))
  612. (set #fromfloppy (exists "C/TestKS13"))
  613. (set #tmpdir "F1GP-Ed_tmp")
  614. (set #packed (exists "F1GP-Ed.lzx"))
  615. (set #floppyassign "F1GP-Ed_newfloppy")
  616. (set #numhelplanguages 3)
  617. (set #numcatalogs 10)
  618.  
  619. (if (exists "ENV:Language" (noreq))
  620.     (set #envlanguage (getenv "Language"))
  621.     (set #envlanguage @language)
  622. )
  623.  
  624. (set #n 0)
  625. (set #defcatalog 0)
  626. (while (< #n #numcatalogs)
  627.     (if (= #envlanguage (select #n "ÃeÓtina" "dansk" "deutsch" "español" "français" "italiano" "nederlands" "norsk" "suomi" "svenska"))
  628.         (set #defcatalog (shiftleft 1 #n))
  629.     )
  630.     (set #n (+ #n 1))
  631. )
  632.  
  633. (set #freemem (+ (database "total-mem")))
  634. (set #lowmem (< #freemem 1048576))
  635.  
  636. ;****************************************************************************
  637. ; Procedures
  638. ;
  639. (procedure P_SetTextTool
  640.     (if (exists #TextFile)
  641.         (tooltype
  642.             (prompt #str-iconfix)
  643.             (setdefaulttool #TextTool)
  644.             (dest #TextFile)
  645.         )
  646.     )
  647. )
  648.  
  649. (procedure P_CleanTmpDir
  650.     (if (exists #tmpdir)
  651.         (
  652.             (working #str-tmpclean)
  653.             (run ("\"%s\" \"%s\" ALL QUIET" #delete (tackon #tmpdir "files/#?")) (safe))
  654.         )
  655.     )
  656. )
  657.  
  658. (procedure P_CleanTmpDirAll
  659.     (if (exists #tmpdir)
  660.         (
  661.             (P_CleanTmpDir)
  662.             (delete (tackon #tmpdir "F1GP-Ed.lzx") (safe))
  663.             (delete (tackon #tmpdir "UNLZX") (safe))
  664.         )
  665.     )
  666. )
  667.  
  668. (procedure P_AskForMainDisk
  669.     (if #tofloppy
  670.         (askdisk
  671.             (prompt (#str-diskinsert #str-diskrename1))
  672.             (help @askdisk-help)
  673.             (dest "F1GP-Ed")
  674.         )
  675.     )
  676. )
  677.  
  678. (procedure P_AskForInstallDisk
  679.     (if (AND #tofloppy #fromfloppy)
  680.         (askdisk
  681.             (prompt (#str-diskinsert "F1GP-Ed_Install"))
  682.             (help @askdisk-help)
  683.             (dest "F1GP-Ed_Install")
  684.         )
  685.     )
  686. )
  687.  
  688. (procedure P_Extract
  689.     (if #packed
  690.         (
  691.             (if #lowmem (P_AskForInstallDisk))
  692.             (working #str-extract)
  693.             (run ("\"%s\" -m x \"%s\" %s \"%s\"" #lzx (tackon #srcdir "F1GP-Ed.lzx") #extract (tackon #tmpdir "files/")) (safe))
  694.             (if #lowmem (P_AskForMainDisk))
  695.         )
  696.     )
  697. )
  698.  
  699. (procedure P_CleanUp
  700.     (if (exists #tmpdir)
  701.         (
  702.             (working #str-tmpclean)
  703.             (run ("\"%s\" \"%s\" ALL QUIET" #delete (tackon #tmpdir "#?")) (safe))
  704.             (delete #tmpdir (safe))
  705.         )
  706.     )
  707.     (makeassign #floppyassign (safe))
  708. )
  709.  
  710. ;****************************************************************************
  711. ; Main body of installer (the mess ;)
  712. ;
  713.  
  714. (welcome "")
  715.  
  716. ; ask questions and prepare to install
  717.  
  718. (set #tofloppy
  719.     (askchoice
  720.         (prompt #str-installtype)
  721.         (default 0)
  722.         (choices #str-hd #str-floppy)
  723.         (help (cat #str-help-installtype "\n\n" @askchoice-help))
  724.     )
  725. )
  726.  
  727. (if (NOT
  728.     (askbool
  729.         (prompt (if #tofloppy #str-floppyconfirm #str-hdconfirm))
  730.         (default 0)
  731.         (help "")
  732.     ))
  733.     (exit (quiet))
  734. )
  735.  
  736. (onerror (P_CleanUp))
  737.  
  738. (if (OR #packed #tofloppy)
  739.     (
  740.         (set #tmpstorage
  741.             (if (= 2 @user-level)
  742.                 (askdir
  743.                     (prompt (#str-tmpstorage #tmpdir))
  744.                     (help @askdir-help)
  745.                     (disk)
  746.                     (default "RAM:")
  747.                 )
  748.                 "RAM:"
  749.             )
  750.         )
  751.         (set #tmpdir (tackon #tmpstorage #tmpdir))
  752.     )
  753. )
  754.  
  755. (if #tofloppy
  756.     (        
  757.         (copyfiles
  758.             (prompt #str-tmpcopy)
  759.             (help @copyfiles-help)
  760.             (source "C:Delete")
  761.             (dest #tmpdir)
  762.             (safe)
  763.         )
  764.         (set #delete (tackon #tmpdir "Delete"))
  765.         (if #fromfloppy
  766.             (copyfiles
  767.                 (prompt #str-tmpcopy)
  768.                 (help @copyfiles-help)
  769.                 (source (if (< #OSVersion 36) "C:Install13" "C:Install"))
  770.                 (dest #tmpdir)
  771.                 (newname "Install")
  772.             )
  773.         )
  774.         (if (AND #fromfloppy (NOT @installer-version))
  775.             (copyfiles
  776.                 (prompt #str-tmpcopy)
  777.                 (help @copyfiles-help)
  778.                 (source "C:Relabel")
  779.                 (dest #tmpdir)
  780.                 (safe)
  781.             )
  782.         )
  783.         (message #str-diskwarn)
  784.         (until #valid
  785.             (set #drive
  786.                 (askchoice
  787.                     (prompt #str-selectfloppydrive)
  788.                     (help @askchoice-help)
  789.                     (choices ("DF0: (%s)" #str-intdrive) "DF1:" "DF2:" "DF3:")
  790.                     (default 0)
  791.                 )
  792.             )
  793.             (set #valid (exists ("DF%ld:" #drive) (noreq)))
  794.         )
  795.         (message (#str-diskinsertnew #drive))
  796.         (working #str-prepdisk)
  797.         (set #oldname (getassign ("DF%ld" #drive) "d"))
  798.         ; old versions of installer didn't recoginize disk param!
  799.         (if @installer-version
  800.             (rename #oldname "F1GP-Ed" (disk) (safe))
  801.             (if #fromfloppy
  802.                 (
  803.                     (run ("\"%s\" \"%s\" F1GP-Ed" (tackon #tmpdir "Relabel") #oldname) (safe))
  804.                     (delete (tackon #tmpdir "Relabel") (safe))
  805.                 )
  806.                 (run ("C:Relabel \"%s\" F1GP-Ed" #oldname) (safe))
  807.             )
  808.         )
  809.         (if #fromfloppy
  810.             (
  811.                 (run ("\"%s\" DF%ld:" (tackon #tmpdir "Install") #drive))
  812.                 (delete (tackon #tmpdir "Install"))
  813.             )
  814.             (if (exists "C:Install")
  815.                 (run ("C:Install DF%ld:" #drive))
  816.             )
  817.         )
  818.         (makeassign #floppyassign ("DF%ld:" #drive) (safe))
  819.         (run ("\"%s\" %s:#? ALL QUIET" #delete #floppyassign))
  820.         (message (cat (#str-diskremove #str-diskrename1) "  " #str-diskanydrive))
  821.         (set #destdir ("%s:" #floppyassign))
  822.         (set @default-dest #destdir)
  823.     )
  824. ; else
  825.     (
  826.         (set #delete "C:Delete")
  827.         (set #destdir
  828.             (askdir
  829.                 (prompt #str-hdwhere)
  830.                 (help @askdir-help)
  831.                 (default @default-dest)
  832.             )
  833.         )
  834.         (set @default-dest (tackon #destdir "F1GP-Ed"))
  835.         (if (= 1 (exists @default-dest))
  836.             (
  837.                 (message #str-fileexists)
  838.                 (exit (quiet))
  839.             )
  840.         )
  841.         (if (exists @default-dest)
  842.             (if     (askbool
  843.                     (prompt #str-drawerexists)
  844.                     (default 0)
  845.                     (help "")
  846.                     (choices #str-renamedrawer #str-replacedrawer)
  847.                 )
  848.  
  849.                 (
  850.                     (rename @default-dest (cat @default-dest "_OLD"))
  851.                     (rename (cat @default-dest ".info") (cat @default-dest "_OLD.info"))
  852.                 )
  853.             )
  854.         )
  855.         (if (NOT (exists @default-dest))
  856.             (makedir @default-dest (infos))
  857.         )
  858.     )
  859. )
  860.  
  861. (if #fromfloppy
  862.     (
  863.         (set #unpackdir (tackon #tmpdir "files"))
  864.         (set #srcdir (if (AND #tofloppy (NOT #lowmem)) #tmpdir ""))
  865.         (set #diskdir (if #tofloppy #unpackdir ""))
  866.     )
  867.     (
  868.         (set #srcdir "/")
  869.         (set #unpackdir #srcdir)
  870.         (set #diskdir #srcdir)
  871.         (set #frenchdocexists (exists (tackon #srcdir "Docs/F1GP-Ed_français.guide")))
  872.     )
  873. )
  874.  
  875. (set #n 0)
  876. (set #defhelp 0)
  877. (if (= #envlanguage "deutsch")
  878.     (set #defhelp 1)
  879. )
  880. (if (AND (= #envlanguage "français") #frenchdocexists)
  881.     (set #defhelp 2)
  882. )
  883.  
  884. (set #whichdocs
  885.     (askoptions
  886.         (prompt #str-whichdocs)
  887.         (help @askoptions-help)
  888.         (if #frenchdocexists (choices "English" "Deutsch" "Français") (choices "English" "Deutsch"))
  889.         (default (shiftleft 1 #defhelp))
  890.     )
  891. )
  892.  
  893. (set #n 0)
  894. (set #count 0)
  895. (set #single 0)
  896. (while (< #n #numhelplanguages)
  897.     (if (IN #whichdocs #n)
  898.         (
  899.             (set #count (+ #count 1))
  900.             (set #single #n)
  901.         )
  902.     )
  903.     (set #n (+ #n 1))
  904. )
  905.  
  906. (if (> #count 1)
  907.     (set #help-language
  908.         (askchoice
  909.             (prompt #str-helplanguage)
  910.             (help (cat #str-help-helplanguage "\n\n" @askchoice-help))
  911.             (if #frenchdocexists (choices "English" "Deutsch" "Français") (choices "English" "Deutsch"))
  912.             (default #defhelp)
  913.         )
  914.     )
  915. ;else
  916.     (set #help-language #single)
  917. )
  918.  
  919. (set #helpfile
  920.     ("Docs/F1GP-Ed_%s.guide" (select #help-language "english" "deutsch" "français"))
  921. )
  922.  
  923. (if (>= #OSVersion 36)
  924.     (set #helpfile (cat "PROGDIR:" #helpfile))
  925. )
  926.  
  927. (if (>= #OSVersion 36)
  928.     (set #whichcatalogs
  929.         (askoptions
  930.             (prompt #str-whichcatalogs)
  931.             (help (cat #str-help-whichcatalogs "\n\n" @askoptions-help))
  932.             (choices "ÃeÓtina" "dansk" "deutsch" "español" "français"
  933.                  "italiano" "nederlands" "norsk" "suomi" "svenska")
  934.             (default #defcatalog)
  935.         )
  936.     )
  937.     (set #whichcatalogs 0)
  938. )
  939.  
  940. (set #opts
  941.     (askoptions
  942.         (prompt #str-confirmoptional)
  943.         (help @askoptions-help)
  944.         (choices (#str-seasondata 1997)
  945.              (#str-seasondata 1996)
  946.              (#str-seasondata 1995)
  947.              (#str-seasondata 1994)
  948.              (#str-soundfiles "Sound")
  949.              (#str-gfxfiles "Graphics")
  950.              (#str-extrafiles "Extras")
  951.         )
  952.         (default 127)
  953.     )
  954. )
  955.  
  956. (P_AskForInstallDisk)
  957.  
  958. (if (AND #fromfloppy #tofloppy)
  959.     (
  960.         (if (NOT #lowmem)
  961.             (copyfiles
  962.                 (prompt #str-tmpcopy)
  963.                 (help @copyfiles-help)
  964.                 (source "F1GP-Ed.lzx")
  965.                 (dest #tmpdir)
  966.                 (safe)
  967.             )
  968.         )
  969.         (copyfiles
  970.             (prompt #str-tmpcopy)
  971.             (help @copyfiles-help)
  972.             (source "C/UNLZX")
  973.             (dest #tmpdir)
  974.             (safe)
  975.         )
  976.         (set #lzx (tackon #tmpdir "UNLZX"))
  977.     )
  978. ;else
  979.     (set #lzx "C/UNLZX")
  980. )
  981.  
  982. (complete 0)
  983.  
  984. ; install libs
  985.  
  986. (if #tofloppy
  987.     (set #libdir ("%s:Libs" #floppyassign))
  988.     (set #libdir "LIBS:")
  989. )
  990.  
  991. (if (< #OSVersion 36)
  992.     (set #extract "Libs/f1gp.l#? Libs/gad#? Libs/reqt#?")
  993.     (set #extract "Libs/f1gp.library Libs/reqtools.library")
  994. )
  995. (P_Extract)
  996.  
  997. (P_AskForMainDisk)
  998.  
  999. (copylib
  1000.     (prompt (#str-update "f1gp.library"))
  1001.     (source (tackon #unpackdir "Libs/f1gp.library"))
  1002.     (dest #libdir)
  1003.     (help @copylib-help)
  1004.     (confirm)
  1005. )
  1006.  
  1007. (complete 3)
  1008.  
  1009. (if (< #OSVersion 36) 
  1010.     (    (set #ReqToolsSource "Libs/reqtools.library")
  1011.         (copylib
  1012.             (prompt (#str-update "gadtools13.library"))
  1013.             (source (tackon #unpackdir "Libs/gadtools13.library"))
  1014.             (dest #libdir)
  1015.             (help @copylib-help)
  1016.             (confirm)
  1017.         )
  1018.     )
  1019.     (    (set #ReqToolsSource "Libs/reqtools.library")
  1020.         (set #asllib (tackon #libdir "asl.library"))
  1021.         (if (exists #asllib)
  1022.             (    (set #aslver (/ (getversion #asllib) 65536))
  1023.                 (if (>= #aslver 38)
  1024.                     (set #ReqToolsSource "")
  1025.                 )
  1026.             )
  1027.         )
  1028.     )
  1029. )
  1030.  
  1031. (if #ReqToolsSource
  1032.     (copylib
  1033.         (prompt (#str-update "reqtools.library"))
  1034.         (source (tackon #unpackdir #ReqToolsSource))
  1035.         (dest #libdir)
  1036.         (help @copylib-help)
  1037.         (newname "reqtools.library")
  1038.         (confirm)
  1039.     )
  1040. )
  1041.  
  1042. (P_CleanTmpDir)
  1043.  
  1044. (complete 10)
  1045.  
  1046. ; install F1GP-Ed drawer
  1047.  
  1048. (P_AskForMainDisk)
  1049.  
  1050. (set #extract "F1GP-Ed F1GP-Ed.info Docs.info")
  1051. (P_Extract)
  1052.  
  1053. (copylib
  1054.     (prompt (#str-update #str-exe))
  1055.     (source (tackon #unpackdir "F1GP-Ed"))
  1056.     (dest @default-dest)
  1057.     (help @copylib-help)
  1058.     (infos)
  1059.     (confirm)
  1060. )
  1061.  
  1062. (complete 25)
  1063.  
  1064. (copyfiles
  1065.     (source (tackon #unpackdir "Docs.info"))
  1066.     (dest @default-dest)
  1067.     (help @copyfiles-help)
  1068. )
  1069.  
  1070. (P_CleanTmpDir)
  1071.  
  1072. (set #n 0)
  1073. (while (< #n #numhelplanguages)
  1074.     (if (IN #whichdocs #n)
  1075.         (
  1076.             (set #docfilename ("Docs/F1GP-Ed_%s.guide" (select #n "english" "deutsch" "français")))
  1077.             (set #extract (cat #docfilename "#?"))
  1078.             (P_Extract)
  1079.             (if (exists (tackon #unpackdir #docfilename))
  1080.                         (copyfiles
  1081.                     (source (tackon #unpackdir #docfilename))
  1082.                     (dest (tackon @default-dest "Docs"))
  1083.                     (help @copyfiles-help)
  1084.                     (infos)
  1085.                 )
  1086.             )
  1087.             (P_CleanTmpDir)
  1088.         )
  1089.     )
  1090.     (set #n (+ #n 1))
  1091. )
  1092.  
  1093. (complete 40)
  1094.  
  1095. (set #extract "History.txt#? Reg_Form#?")
  1096. (P_Extract)
  1097.  
  1098. (copyfiles
  1099.     (prompt (#str-copy @default-dest))
  1100.     (source #unpackdir)
  1101.     (choices "History.txt" "Reg_Form")
  1102.     (dest @default-dest)
  1103.     (help @copyfiles-help)
  1104.     (infos)
  1105.     (confirm)
  1106. )
  1107. (P_CleanTmpDir)
  1108.  
  1109. (complete 50)
  1110.  
  1111. ; copy optional files
  1112.  
  1113. (if (OR (OR (OR (IN #opts 0) (IN #opts 1)) (IN #opts 2)) (IN #opts 3))
  1114.     (
  1115.         (set #extract "199?.f1gp#?")
  1116.         (P_Extract)
  1117.     )
  1118. )
  1119.  
  1120. (set #n 0)
  1121. (while (< #n 4)
  1122.     (if (IN #opts #n)
  1123.         (
  1124.             (set #filename (select #n "1997.f1gp" "1996.f1gp" "1995.f1gp" "1994.f1gp"))
  1125.             (copyfiles
  1126.                 (source (tackon #unpackdir #filename))
  1127.                 (dest @default-dest)
  1128.                 (help @copyfiles-help)
  1129.                 (infos)
  1130.             )
  1131.             (set #filename (cat (tackon #unpackdir #filename) ".events"))
  1132.             (if (exists #filename)
  1133.                 (copyfiles
  1134.                     (source #filename)
  1135.                     (dest @default-dest)
  1136.                     (help @copyfiles-help)
  1137.                 )
  1138.             )
  1139.         )
  1140.     )        
  1141.     (set #n (+ #n 1))
  1142. )
  1143.  
  1144. (P_CleanTmpDir)
  1145.  
  1146. (complete 60)
  1147.  
  1148. ; copy optional dirs
  1149.  
  1150. (set #n 4)
  1151. (while (< #n 7)
  1152.     (if (IN #opts #n)
  1153.         (
  1154.             (set #filename (select (- #n 4) "Sound" "Graphics" "Extras"))
  1155.             (set #extract (cat #filename "/#? " #filename ".info"))
  1156.             (P_Extract)
  1157.             (copyfiles
  1158.                 (source (tackon #unpackdir (cat #filename ".info")))
  1159.                 (dest @default-dest)
  1160.                 (help @copyfiles-help)
  1161.             )
  1162.             (copyfiles
  1163.                 (source (tackon #unpackdir #filename))
  1164.                 (dest (tackon @default-dest #filename))
  1165.                 (help @copyfiles-help)
  1166.                 (all)
  1167.                 (infos)
  1168.             )
  1169.             (P_CleanTmpDir)
  1170.         )
  1171.     )        
  1172.     (set #n (+ #n 1))
  1173. )
  1174.  
  1175. (if (IN #opts 7)
  1176.     (tooltype
  1177.         (prompt #str-iconfix)
  1178.         (setdefaulttool "Installer")
  1179.         (dest (tackon @default-dest "Extras/Install_F1GP"))
  1180.     )
  1181. )
  1182.  
  1183. (complete 75)
  1184.  
  1185. (if (>= #OSVersion 36)
  1186.     (
  1187.         (set #newdir (tackon @default-dest "Catalogs"))
  1188.         (if (NOT (exists #newdir))
  1189.             (makedir #newdir)
  1190.         )
  1191.         (set #extract "Catalogs/#? Catalogs.info")
  1192.         (P_Extract)
  1193.  
  1194.         (copyfiles
  1195.             (source (tackon #unpackdir "Catalogs.info"))
  1196.             (dest @default-dest)
  1197.             (help @copyfiles-help)
  1198.         )
  1199.         (set #dest (tackon @default-dest "Catalogs"))
  1200.         (copyfiles
  1201.             (prompt (#str-copy #dest))
  1202.             (source (tackon #unpackdir "Catalogs/NewCatalog.ct"))
  1203.             (dest #dest)
  1204.             (help @copyfiles-help)
  1205.             (infos)
  1206.             (confirm)
  1207.         )
  1208.     )
  1209. )
  1210.  
  1211. (complete 77)
  1212.  
  1213. (set #n 0)
  1214. (while (< #n #numcatalogs)
  1215.     (if (IN #whichcatalogs #n)
  1216.         (
  1217.             (set #filename ("Catalogs/%s/F1GP-Ed.catalog" (select #n "ÃeÓtina" "dansk" "deutsch" "español" "français" "italiano" "nederlands" "norsk" "suomi" "svenska")))
  1218.             (copyfiles
  1219.                 (source (tackon #unpackdir #filename))
  1220.                 (dest (tackon @default-dest (pathonly #filename)))
  1221.                 (help @copyfiles-help)
  1222.             )
  1223.         )
  1224.     )
  1225.     (set #n (+ #n 1))
  1226. )
  1227.  
  1228. (P_CleanTmpDir)
  1229.  
  1230. (complete 82)
  1231.  
  1232. (if (AND #fromfloppy #tofloppy)
  1233.     (
  1234.         (P_AskForInstallDisk)
  1235.         (if (exists "F1GP-Ed.key")
  1236.             (copyfiles
  1237.                 (prompt #str-tmpcopy)
  1238.                 (help @copyfiles-help)
  1239.                 (source "F1GP-Ed.key")
  1240.                 (dest #unpackdir)
  1241.             )
  1242.         )
  1243.         (if (exists "Registered.guide")
  1244.             (copyfiles
  1245.                 (prompt #str-tmpcopy)
  1246.                 (help @copyfiles-help)
  1247.                 (source "Registered.guide")
  1248.                 (dest #unpackdir)
  1249.                 (infos)
  1250.             )
  1251.         )
  1252.         (P_AskForMainDisk)
  1253.     )
  1254. )
  1255.  
  1256. (if (exists (tackon #diskdir "F1GP-Ed.key"))
  1257.     (copyfiles
  1258.         (prompt (#str-copy @default-dest))
  1259.         (source (tackon #diskdir "F1GP-Ed.key"))
  1260.         (dest @default-dest)
  1261.         (help @copyfiles-help)
  1262.         (confirm)
  1263.     )
  1264. )
  1265. (set #dest (tackon @default-dest "Docs"))
  1266. (if (exists (tackon #diskdir "Registered.guide"))
  1267.     (copyfiles
  1268.         (prompt (#str-copy #dest))
  1269.         (source (tackon #diskdir "Registered.guide"))
  1270.         (dest #dest)
  1271.         (help @copyfiles-help)
  1272.         (infos)
  1273.         (confirm)
  1274.     )
  1275. )
  1276.  
  1277. (if (AND #fromfloppy #tofloppy)
  1278.     (P_CleanTmpDir)
  1279. )
  1280.  
  1281. (complete 87)
  1282.  
  1283. (working #str-iconfix)
  1284.  
  1285. (tooltype
  1286.     (prompt #str-iconfix)
  1287.     (settooltype "HELPFILE" #helpfile)
  1288.     (dest (tackon @default-dest "F1GP-Ed"))
  1289. )
  1290.  
  1291. (if (AND #tofloppy #fromfloppy)
  1292.     (set #TextTool "F1GP-Ed:C/AmigaGuide")
  1293. )
  1294.  
  1295. (set #n 0)
  1296. (while    (set #TextFile
  1297.         (select #n
  1298.             "Docs/F1GP-Ed_english.guide"
  1299.             "Docs/F1GP-Ed_deutsch.guide"
  1300.             "Docs/F1GP-Ed_français.guide"
  1301.             "History.txt"
  1302.             "Reg_Form"
  1303.             "Docs/Registered.guide"
  1304.             "Extras/GP2"
  1305.             "Extras/Other_F1GP_Stuff.guide"
  1306.                         "Graphics/ReadMe"
  1307.                         "Sound/ReadMe"
  1308.             ""
  1309.         )
  1310.     )
  1311.  
  1312.     (set #TextFile (tackon @default-dest #TextFile))
  1313.     (P_SetTextTool)
  1314.     (set #n (+ #n 1))
  1315. )
  1316.  
  1317. (P_CleanTmpDirAll)
  1318.  
  1319. (complete 90)
  1320.  
  1321. ; install files for autoboot disk
  1322.  
  1323. (if (AND #tofloppy #fromfloppy)
  1324.     (
  1325.         (P_AskForInstallDisk)
  1326.         (copyfiles
  1327.             (prompt #str-tmpcopy)
  1328.             (help @copyfiles-help)
  1329.             (source "C")
  1330.             (dest (tackon #unpackdir "C"))
  1331.             (choices "AmigaGuide" "GOWB" "PPLoadSeg" "Type")
  1332.         )
  1333.         (copyfiles
  1334.             (prompt #str-tmpcopy)
  1335.             (help @copyfiles-help)
  1336.             (source "Libs")
  1337.             (dest (tackon #unpackdir "Libs"))
  1338.             (choices "amigaguide.library.pp" "powerpacker.library" "iffparse.library.pp")
  1339.         )
  1340.         (copyfiles
  1341.             (prompt #str-tmpcopy)
  1342.             (help @copyfiles-help)
  1343.             (source "S/disk.startup-sequence")
  1344.             (dest (tackon #unpackdir "S"))
  1345.             (newname "Startup-Sequence")
  1346.         )
  1347.         (copyfiles
  1348.             (prompt #str-tmpcopy)
  1349.             (help @copyfiles-help)
  1350.             (source "S/disk.text")
  1351.             (dest (tackon #unpackdir "S"))
  1352.             (newname "text")
  1353.         )
  1354.         (copyfiles
  1355.             (prompt #str-tmpcopy)
  1356.             (help @copyfiles-help)
  1357.             (source "system-configuration")
  1358.             (dest #unpackdir)
  1359.         )
  1360.         (copyfiles
  1361.             (prompt #str-tmpcopy)
  1362.             (help @copyfiles-help)
  1363.             (source "S/Disk.info")
  1364.             (dest #unpackdir)
  1365.         )
  1366.             
  1367.         (if (< #OSVersion 36)
  1368.             (
  1369.                 (copyfiles
  1370.                     (prompt #str-tmpcopy)
  1371.                     (help @copyfiles-help)
  1372.                     (source "C")
  1373.                     (dest (tackon #unpackdir "C"))
  1374.                     (choices "Echo" "Else" "EndIf"
  1375.                          "If" "Run")
  1376.                 )
  1377.                 (copyfiles
  1378.                     (prompt #str-tmpcopy)
  1379.                     (help @copyfiles-help)
  1380.                     (source "C/Assign13")
  1381.                     (dest (tackon #unpackdir "C"))
  1382.                     (newname "Assign")
  1383.                 )
  1384.                 (copyfiles
  1385.                     (prompt #str-tmpcopy)
  1386.                     (help @copyfiles-help)
  1387.                     (source "C/SetPatch13")
  1388.                     (dest (tackon #unpackdir "C"))
  1389.                     (newname "SetPatch")
  1390.                 )
  1391.                 (copyfiles
  1392.                     (prompt #str-tmpcopy)
  1393.                     (help @copyfiles-help)
  1394.                     (source "Libs")
  1395.                     (dest (tackon #unpackdir "Libs"))
  1396.                     (choices "icon.library.pp")
  1397.                 )
  1398.                 (copyfiles
  1399.                     (prompt #str-tmpcopy)
  1400.                     (help @copyfiles-help)
  1401.                     (source "L")
  1402.                     (dest (tackon #unpackdir "L"))
  1403.                     (all)
  1404.                 )
  1405.             )
  1406.             (
  1407.                 (copyfiles
  1408.                     (prompt #str-tmpcopy)
  1409.                     (help @copyfiles-help)
  1410.                     (source "C")
  1411.                     (dest (tackon #unpackdir "C"))
  1412.                     (choices "Assign" "SetPatch")
  1413.                 )
  1414.             )
  1415.         )
  1416.         (P_AskForMainDisk)
  1417.         (copyfiles
  1418.             (prompt #str-floppyextras)
  1419.             (help @copyfiles-help)
  1420.             (source #unpackdir)
  1421.             (dest @default-dest)
  1422.             (all)
  1423.         )
  1424.         (complete 99)
  1425.         (P_AskForInstallDisk)
  1426.         (P_CleanTmpDir)
  1427.     )
  1428. )
  1429.  
  1430. (P_CleanUp)
  1431.  
  1432. ; END
  1433.  
  1434. (complete 100)
  1435.  
  1436. (exit (cat (if (AND #fromfloppy #tofloppy) #str-bootfloppyend "")
  1437.     (#str-theend
  1438.     "http://www.nanunanu.org/~oliver/F1GP-Ed/"
  1439.     "Oliver Roberts (Oliver@POBoxes.com)"))
  1440. )
  1441.